﻿Namespace Util.Excecao

    ''' <summary>
    ''' Classe de Gerente da mensagem de excecao.
    ''' </summary>
    ''' <remarks></remarks>
    Public Class MensagemExcecaoGerente

        ''' <summary>
        ''' Este método retorna uma String que concatena a mensagem da InnerException e também o StackTrace
        ''' </summary>
        ''' <param name="ex">Exception original</param>
        ''' <returns>String</returns>
        ''' <remarks></remarks>
        Public Shared Function MensagemCompleta(ByRef ex As Exception) As String
            Dim msg As String = ""
            msg = ex.InnerException.Message + vbCrLf
            msg = msg + ex.Message + vbCrLf
            msg = msg + ex.StackTrace
            Return msg
        End Function
    End Class
End Namespace
